home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Libraries / SAT 2.1.2 / Collision ƒ / sMrEgghead.p < prev   
Encoding:
Text File  |  1994-06-02  |  924 b   |  30 lines  |  [TEXT/PJMM]
  1. { Player sprite for SATcollision }
  2.  
  3. unit sMrEgghead;
  4.  
  5. interface
  6.  
  7.     uses
  8.         SAT;
  9.  
  10.     var
  11.         mrEggheadFaces: array[0..3] of FacePtr;
  12.  
  13.     procedure InitMrEgghead;
  14.     procedure SetupMrEgghead (me: SpritePtr);
  15.     procedure HandleMrEgghead (me: SpritePtr);
  16.  
  17. implementation
  18.  
  19.     procedure initMrEgghead;
  20.         var
  21.             i: integer;
  22.     begin
  23.         for i := 0 to 3 do
  24.             mrEggheadFaces[i] := GetFace(128 + i);
  25.     end;
  26.  
  27.     procedure SetupMrEgghead (me: SpritePtr);
  28.     begin
  29. {me^.mode := 0;         Unnecessary - it is always initialized to 0 by SAT.}
  30.         me^.kind